home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / pctchnqs / 1990 / number4 / newkey.pas < prev    next >
Pascal/Delphi Source File  |  1990-07-11  |  346b  |  15 lines
  1. { IsNewKey: A function for determining whether 
  2.   a 101/102-key keyboard is attached to the 
  3.   user's system.
  4.   
  5.   (c) 1990 by George W. Seaton
  6.   All Rights Reserved                           }
  7.  
  8. FUNCTION IsNewKey : Boolean;
  9. BEGIN
  10.   IF ((Mem[$0040:$0096] AND $10) = $10) THEN
  11.     IsNewKey := TRUE
  12.   ELSE
  13.     IsNewKey := FALSE;
  14. END;
  15.